Kontrola vytaceneho spojeni II
Otázka od: Zapletal Martin
30. 8. 2004 12:31
Prosim, nevite nekdo jak programove ohlidat zmenu telefonniho cisla pri
vytacenem spojeni nebo Active X. Nemate nejakou fintu nebo hotove reseni?
Musi to byt z me aplikace, proto neprichazi v uvahu nektere jine
produkty(ConMet, Optim Access Dial atd.)
Martin
D5Pro, W2000, XP
Odpovedá: Jiri Bily
30. 8. 2004 13:03
Nevim jestli ti to pomuze, ale seznam telefonnich pripojeni je v souboru
c:\Documents and Settings\All Users\Data
aplikaci\Microsoft\Network\Connections\Pbk\rasphone.pbk
Takze hlidat tenhle soubor (akorat dat pozor na jiny jazykovy verze).
Jirka
----- Original Message -----
From: "Zapletal Martin" <zapletal@inoma.cz>
To: <delphi-l@clexpert.cz>
Sent: Monday, August 30, 2004 1:31 PM
Subject: Kontrola vytaceneho spojeni II
> Prosim, nevite nekdo jak programove ohlidat zmenu telefonniho cisla pri
> vytacenem spojeni nebo Active X. Nemate nejakou fintu nebo hotove reseni?
Odpovedá: Zapletal Martin
30. 8. 2004 14:06
A muze se stat, ze by se zmenilo cislo bez toho, aby se manipulovalo s timto
souborem?
> Nevim jestli ti to pomuze, ale seznam telefonnich pripojeni je v souboru
> c:\Documents and Settings\All Users\Data
> aplikaci\Microsoft\Network\Connections\Pbk\rasphone.pbk
> Takze hlidat tenhle soubor (akorat dat pozor na jiny jazykovy verze).
Odpovedá: Fitz Ladislav
30. 8. 2004 13:41
> Prosim, nevite nekdo jak programove ohlidat zmenu telefonniho cisla
> pri vytacenem spojeni nebo Active X. Nemate nejakou fintu nebo hotove
> reseni? Musi to byt z me aplikace, proto neprichazi v uvahu nektere
> jine produkty(ConMet, Optim Access Dial atd.)
je sem si kdysi udelal (nebo opsal) tuto proceduru (vraci i cisla telefonu
daneho spojeni)
musis mit unitu RAS
function GetConnectedInfo (const aName : string; var aDeviceType,
aDeviceName, aPhone : string) : boolean;
var re : TRasEntry; b : pointer; es, ds : longint; p : pChar;
begin
b:=nil;
try
es:=0;
ds:=0;
re.dwSize:=sizeof(TRasEntry);
RasGetEntryProperties (nil,pChar(aName),nil,es,nil,ds);
if (re.dwSize<es)
then begin
GetMem (b,es);
FillChar (b^,es,0);
LPRasEntry(b)^.dwSize:=sizeof(TRasEntry);
result:=(RasGetEntryProperties
(nil,pChar(aName),@LPRasEntry(b)^,es,nil,ds)=0);
Move (b^,re,sizeof(re));
end
else result:=(RasGetEntryProperties
(nil,pChar(aName),@re,es,nil,ds)=0);
if (result) then
begin
aDeviceType:=re.szDeviceType;
aDeviceName:=re.szDeviceName;
if (re.szAreaCode[0]<>#0)
then aPhone:=re.szAreaCode+'/'
else aPhone:='';
aPhone:=aPhone+re.szLocalPhoneNumber;
if (re.dwAlternatesOffset>0)and(b<>nil) then
begin
p:=pChar(longint(b)+re.dwAlternatesOffset);
while (p[0]<>#0) do
begin
aPhone:=aPhone+#13#10+p;
inc (longint(p),StrLen (p)+1);
end;
end;
end;
finally
if (b<>nil) then
FreeMem (b);
end;
end;
Odpovedá: Jiri Bily
30. 8. 2004 14:47
Ruku do ohne za to nedam, ale asi ne. Ja jsem to kdysi nekde vycetl jako
moznost jak zabranit zmene vytacenych spojeni, proste nastavit tenhle soubor
jako read only. Ted jsem zkusil udelat zmenu v tom souboru a ve vytacecim
dialogu se zmeneny udaj objevil.
Jirka
----- Original Message -----
From: "Zapletal Martin" <zapletal@inoma.cz>
To: <delphi-l@clexpert.cz>
Sent: Monday, August 30, 2004 2:39 PM
Subject: Re: Kontrola vytaceneho spojeni II
> A muze se stat, ze by se zmenilo cislo bez toho, aby se manipulovalo s
timto
> souborem?
>
> > Nevim jestli ti to pomuze, ale seznam telefonnich pripojeni je v souboru
> > c:\Documents and Settings\All Users\Data
> > aplikaci\Microsoft\Network\Connections\Pbk\rasphone.pbk
> > Takze hlidat tenhle soubor (akorat dat pozor na jiny jazykovy verze).
>
>
>
Odpovedá: Jan Novak
3. 9. 2004 20:30
>> A muze se stat, ze by se zmenilo cislo bez toho, aby
>> se manipulovalo s timto souborem?
> Ruku do ohne za to nedam, ale asi ne. Ja jsem to kdysi nekde
> vycetl jako moznost jak zabranit zmene vytacenych spojeni,
> proste nastavit tenhle soubor jako read only.
Kdokoliv muze kdykoliv do modemu odeslat ATDT<nejake drahe cislo> a
vubec ho nemusi zajimat zadne soubory nebo ActiveX. Uplne nejlepsi
ochrana je hardwarove blokovani na ustredne.
Jinak, dneska uz je dial-up stejne pomalu mrtva zalezitost.
Odpovedá: Zapletal Martin
6. 9. 2004 6:43
> Kdokoliv muze kdykoliv do modemu odeslat ATDT<nejake drahe cislo> a
> vubec ho nemusi zajimat zadne soubory nebo ActiveX. Uplne nejlepsi
> ochrana je hardwarove blokovani na ustredne.
Pokud ustredna neni, da se u operatora zablokovat volani na spec smery. Ale
mohlo stacit modem drzet obsazeny a ostatni porty take, ne?
>
> Jinak, dneska uz je dial-up stejne pomalu mrtva zalezitost.
Ani bych nerekl. I kdyz se ceny pevneho pripojeni snizily, porad je vetsina
tech co se pripojuji.(alespon me se to tak jevi)
Martin